home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / vbsource.zip / RECEDIT.FRM (.txt) < prev    next >
Visual Basic Form  |  1991-09-11  |  11KB  |  223 lines
  1. Form1
  2. Form1
  3. Form1
  4. FieldBoxes
  5. FieldBoxes
  6. Label1
  7. F&irst Name
  8. Label2
  9. &Last Name
  10. FieldBoxes
  11. FieldBoxes
  12. FieldBoxes
  13. Label3
  14. Salar&y
  15. Label4
  16. Label5
  17. NextRecord
  18. &Next Record
  19. PreviousRocord
  20. &Previous Record
  21. OpenFile
  22. &Open File
  23.     AddRecord
  24. &Add Record
  25. DeleteRecord
  26. &Delete Record
  27. ExitButton
  28. E&xit
  29.     HScroller    
  30. Text1_Change
  31. Form_Click
  32. @    Form_Load
  33. Form1^
  34. CurrentX
  35. CurrentY
  36. CaptionE
  37. BoxCaptionB
  38. WorkingFileNameD
  39. ConfirmFile
  40. RANDOMFILE(
  41. TheName{
  42.     Operation
  43. ConfirmFileErrorp
  44. TheFileR
  45. ReplaceFilel
  46. Confirmation
  47. READFILE
  48. BINARYFILE
  49. Conirmation
  50. LOADFILER
  51. Action
  52. FileErrors
  53. errVal
  54. msgType
  55. MB_ICONEXCLAMATION
  56. ERR_DEVICEUNAVAILABLEE
  57. ERR_DISKNOTREADY
  58. ERR_DEVICEIO
  59. ERR_DISKFULL]
  60. Err_BADFILENAME7
  61. ERR_BADFILENAMEORNUMBERc
  62. ERR_PATHDOESNOTEXIST
  63. ERR_BADFILEMODE
  64. ERR_FILEALREADYOPEN
  65. ERR_INPUTPASTENDOFFILE
  66. response
  67. GetName
  68. LoadOrSave/
  69.     NameToUse
  70. FileOpener
  71.     RecordLen
  72.     ADDTOFILEm
  73. FileNum
  74. OpenerErrorr
  75. WorkingFileNum
  76. Filek
  77.     RecordVar
  78. LastRecord
  79. NewRecordFlag
  80. RecordNumberv
  81. Position)
  82. ShowRecord
  83. TempFileFlag
  84. FieldBoxes!
  85. Record
  86. TextT
  87.     FirstName
  88. LastName
  89. Salaryc
  90. GenderL
  91. OldContents7
  92. ClearFields
  93. OpenFile_ClickU
  94. CheckEmOuti
  95. WriteQueryV
  96. NewFileNames
  97. CleanUpFile
  98. Result
  99. FALSE
  100. Period
  101. BakName4
  102. CopyFile
  103. NumBoxes
  104. CurrentContents
  105. PriorContents
  106. SameText
  107. EmptyBoxes
  108. Answer
  109.     RecordNum
  110. NextRecord_Click
  111. RecordWasStored
  112. PreviousRocord_Click
  113. EsleIf
  114. AddRecord_Click
  115. Fields    
  116. DeleteRecord_Click
  117. TempVar
  118. RecordType
  119. ExitBotton_Click
  120. ExitButton_Click
  121. WriteIt
  122. CleanFileNum
  123. RAMDOMFILE6
  124. OldName,
  125. NewName@
  126. FileType
  127. RecVar^
  128.     CopyError
  129. OldNum
  130. NewNum
  131. FieldBoxes_Change
  132. Index
  133. HScroller_Change
  134. ScrollerUpdate
  135. RecordStored
  136.     HScroller
  137. Value
  138. SmallChange
  139. LargeChange
  140. Form_Load
  141. Record Editor"
  142. Using 
  143. If you want to create a new record file, choose OK, 
  144.  then choose Add Record to add a new record.
  145. To load a file that already exists
  146.  on disk,"
  147. choose the Open File button and type the name"
  148.  of the file you want to open.
  149. Tmp. file,
  150. , found.  Choose OK to erase "
  151. current contents, or chooes Cancel to load it as it is."
  152. Old temporary file found!"
  153. ConfirmFile
  154. The file "
  155. already exists on disk."
  156. Saving the text box contents to that file will
  157. destroy the file's current contents, replacing
  158. them with the text from the text box."
  159. Choose OK to overwrite the file, Cancel to stop.
  160. File Massage
  161. The file "
  162.  doesn't exist."
  163. Would ypu like to create and the edit it?"
  164. Choose OK to create the file, Cancel to stop."
  165. File Message
  166. FileErrors
  167. That device appears unavailable.
  168. Insert a disk in the drive and close the door.
  169. Internal disk error.
  170. Disk is full.  Continue?
  171. That filename is illegal."
  172. That path doesn't exist.
  173. Can't open your file for that type of access."
  174. This file is already open"
  175. This file has a nonstandard end-of-file marker, 
  176. or an attempt was made to read beyond 
  177. the end-of-file marker."
  178. Disk Error
  179. GetName
  180. File name"
  181. FileOpener
  182. ShowRecord
  183. OpenFile_Click
  184. Please enter file to open:$
  185. Couldn't find 
  186.  Do you want to create "
  187. File Not Found
  188. Couldn't create .BAK file"
  189. Record Editor: "
  190. CheckEmOut
  191. Would you like this record stored now?
  192. Store Now?
  193. NextRecord_Click
  194. This is the last record in the file.  Choose Add "
  195. Record if you'd like to add a new record now."
  196. PreviousRocord_Click
  197. This is the first record in the file.  Choose Next "
  198. Record if you'd like to see other records now.
  199. AddRecord_Click
  200. ClearFields
  201. DeleteRecord_Click
  202. This is the last record in the file.  Deleting it will destroy
  203.  the whole file.
  204.  Record Editor will also be closed."
  205. Choose OK to destroy file"
  206. About to delete file!"
  207. ExitButton_Click
  208. WriteQuery
  209. Do you want to save these records to a file?
  210. Save these records?"
  211. Save As:$
  212. The old 
  213.  will be overwritten!"
  214. OverWriting old file
  215. CleanUpFile
  216. ~T2m3p7~.Tmp
  217. ~T2m3p7~.Tmp
  218. ~T2m3p7~.Tmp
  219. ~T2m3p7~.Tmp
  220. CopyFile
  221. HScroller_Change
  222. ScrollerUpdate
  223.